home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / GAME / RoboWar 4.1.1.sit / RoboWar 4.1.1 / Tournament VI / Teams / ◊Darling #1◊ next >
Text File  |  1993-06-06  |  3KB  |  178 lines
  1. # T E A M   D A R L I N G   # 1
  2. # Created 5/7/93 by Stephen Linhart
  3. # Copyright 1993 - All Rights Reserved
  4.  
  5.  
  6. To avoid accidental errors,
  7. please do not recompile!
  8.  
  9.  
  10.     fire' 50 12 hellbore'
  11. loopstart:
  12.     x 150 > rightbounce leftbounce ife
  13.     y 150 > bottombounce topbounce ife
  14. loop:
  15.     range sweep ifg
  16.     130 aim' store
  17.     range sweep ifg
  18.     170 aim' store
  19.     range sweep ifg
  20.     x 50 < leftbounce if
  21.     210 aim' store
  22.     range sweep ifg
  23.     250 aim' store
  24.     range sweep ifg
  25.     290 aim' store
  26.     range sweep ifg
  27.     x 250 > rightbounce if
  28.     330 aim' store
  29.     range sweep ifg
  30.     10 aim' store
  31.     range sweep ifg
  32.     50 aim' store
  33.     range sweep ifg
  34.     y 50 < topbounce if
  35.     110 aim' store
  36.     range sweep ifg
  37.     150 aim' store
  38.     range sweep ifg
  39.     190 aim' store
  40.     range sweep ifg
  41.     y 250 > bottombounce if
  42.     230 aim' store
  43.     range sweep ifg
  44.     270 aim' store
  45.     range sweep ifg
  46.     310 aim' store
  47.     range sweep ifg
  48.     collision reverse if
  49.     350 aim' store
  50.     range sweep ifg
  51.     30 aim' store
  52.     range sweep ifg
  53.     70 aim' store
  54.     range sweep ifg
  55.     90 aim' store
  56.     energy 50 < bettytime ifg
  57.     loop jump
  58. sweep:
  59.     icon2
  60.     range 50 > sweep2 ifg
  61.     range 30 > skip1 ifg
  62.     range skip2 ifg
  63. sweep2:
  64.     1 fire' store
  65.     aim 14 + dup dup
  66.     12 sin speedx' store
  67.     12 cos chs speedy' store
  68.     aim' store
  69.     range sweep ifg
  70.     aim 7 - aim' store
  71.     range sweep ifg
  72.     aim 13 - aim' store
  73.     range sweep ifg
  74.     aim 17 - aim' store
  75.     range sweep loop ifeg
  76. skip1:
  77.     aim dup
  78.     20 sin movex' store
  79.     20 cos chs movey' store
  80. skip2:
  81.     store 
  82.     range * swap store
  83.     fire' 50 12 hellbore'
  84.     sync
  85.     0 speedx' store
  86.     0 speedy' store
  87.     bettytime jump
  88. topbounce:
  89.     5 speedy' store
  90.     return
  91. bottombounce:
  92.     -5 speedy' store
  93.     return
  94. leftbounce:
  95.     4 speedx' store
  96.     return
  97. rightbounce:
  98.     -4 speedx' store
  99.     return
  100. reverse:
  101.     speedx chs speedx' store
  102.     speedy chs speedy' store
  103.     return
  104.  
  105.  
  106. bettytime:
  107.     x 50 < x 250 > or xskip ifg
  108.     x 150 > leftbounce rightbounce ife
  109. xskip:
  110.     y 50 < y 250 > or bettyloop ifg
  111.     y 150 > topbounce bottombounce ife
  112. bettyloop:
  113.     energy 149 > loop ifg
  114.     range zap if
  115.     130 aim' store
  116.     range zap if
  117.     170 aim' store
  118.     range zap if
  119.     icon0
  120.     x 50 < leftbounce if
  121.     210 aim' store
  122.     range zap if
  123.     250 aim' store
  124.     range zap if
  125.     290 aim' store
  126.     range zap if
  127.     x 250 > rightbounce if
  128.     330 aim' store
  129.     range zap if
  130.     10 aim' store
  131.     range zap if
  132.     50 aim' store
  133.     range zap if
  134.     y 50 < topbounce if
  135.     110 aim' store
  136.     range zap if
  137.     150 aim' store
  138.     range zap if
  139.     190 aim' store
  140.     range zap if
  141.     y 250 > bottombounce if
  142.     230 aim' store
  143.     range zap if
  144.     270 aim' store
  145.     range zap if
  146.     310 aim' store
  147.     range zap if
  148.     collision reverse if
  149.     350 aim' store
  150.     range zap if
  151.     30 aim' store
  152.     range zap if
  153.     70 aim' store
  154.     range zap if
  155.     90 aim' store
  156.     bettyloop jump
  157. zap:
  158.     range dup 50 < and zap2 ifg
  159.     range dup 100 < and zapskip ifg
  160.     return
  161. zapskip:
  162.     x dup
  163.     50 < leftbounce if
  164.     250 > rightbounce if
  165.     y dup
  166.     50 < topbounce if
  167.     250 > bottombounce if
  168.     aim 135 + dup
  169.     2 sin speedx + speedx' store
  170.     2 cos chs speedy + speedy' store
  171.     return
  172. zap2:
  173.     a' store
  174.     store 
  175.     range * swap store
  176.     fire' 50 12 hellbore'
  177.     sync
  178.     a jump